home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / moden / tcom / qmodem.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  1.5 KB  |  67 lines
  1. {$G+,X+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   QMODEM.PAS 1.01                     *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit Qmodem;
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  18.   Forms, Dialogs, StdCtrls, Buttons, AdModDB, TComIni;
  19.  
  20. type
  21.   TQuickModemForm = class(TForm)
  22.     ModemList: TListBox;
  23.     OkBtn: TBitBtn;
  24.     CancelBtn: TBitBtn;
  25.     HelpBtn: TBitBtn;
  26.     procedure ModemListDblClick(Sender: TObject);
  27.     procedure OkBtnClick(Sender: TObject);
  28.  
  29.   public
  30.     ModemDB : TApdModemDBase;
  31.  
  32.     constructor Create(AOwner : TComponent; DB : TApdModemDBase);
  33.   end;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39. constructor TQuickModemForm.Create(AOwner : TComponent; DB : TApdModemDBase);
  40. begin
  41.   inherited Create(AOwner);
  42.  
  43.   ModemDB         := DB;
  44.   ModemList.Items := ModemDB.Modems;
  45. end;
  46.  
  47. procedure TQuickModemForm.ModemListDblClick(Sender: TObject);
  48. begin
  49.   OkBtnClick(Sender);
  50.   ModalResult := mrOK;
  51. end;
  52.  
  53. procedure TQuickModemForm.OkBtnClick(Sender: TObject);
  54. var
  55.   Modem : String;
  56.  
  57. begin
  58.   if (ModemList.ItemIndex <> -1) then begin
  59.     Modem := ModemList.Items[ModemList.ItemIndex];
  60.     ModemDB.GetModem(Modem, ModemInfo);
  61.   end else
  62.     ModalResult := mrCancel;
  63. end;
  64.  
  65. end.
  66.  
  67.